home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 52 / 64er_Magazin_Sonderheft_52_19xx_Markt__Technik_de_Side_B.d64 / listing 2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  325b  |  13 lines
  1. 10 gosub50000
  2. 20 print:printbe$:print
  3. 30 goto10
  4. 50000 rem *** befehlseingabe ii ***
  5. 50010 poke198,0:be$="":print"was nun ? ";
  6. 50020 poke204,0
  7. 50030 getx$:ifx$=""then50030
  8. 50040 ifpeek(203)=1orlen(be$)>68thenprint" ":poke204,1:return
  9. 50050 i=asc(x$):ifi<65ori>90thenifi<>32andi<>20andi<>34then50030
  10. 50060 ifi=20andbe$=""then50030
  11. 50070 ifi=20thenpoke204,1:print"[157]  [157][157]";:be$=left$(be$,len(be$)-1):goto50020
  12. 50080 printx$;:be$=be$+x$:goto50030
  13.